home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 41 / Amiga Format CD41 (1999-06)(Future Publishing)(GB)[!][issue 1999-07].iso / -seriously_amiga- / misc / wordpad / wordpadv1.lha / Wordpad / Install next >
Text File  |  1999-03-20  |  3KB  |  130 lines
  1. ;$VER: WordPad Installer v0.1 (20/3/99)
  2.  
  3. ;set some message stuff-----------------------
  4.  
  5. (procedure english (
  6.   (set MSG_WELCOME "\n\nWelcome to the installation of Wordpad,\ndo you wish to proceed?")
  7.   (set MSG_DESTINATION "\nWhere do you want Wordpad to be installed.\nA drawer will be created.")
  8.   (set MSG_COPY "\nCopying source files\n")
  9.  
  10. ))
  11.  
  12. (if (= @language "english") (english))
  13.  
  14.  
  15. (message (MSG_WELCOME))
  16.  
  17. (set dest_dir
  18.    (askdir (prompt (MSG_DESTINATION))
  19.            (help @askdir-help)
  20.            (default @default-dest)
  21.            (newpath))
  22. )
  23.  
  24. (set @default-dest dest_dir)
  25.  
  26. (copyfiles (prompt (MSG_COPY "Wordpad" @default-dest))
  27.            (help @copyfiles-help)
  28.            (source "bin/Wordpad")
  29.            (dest dest_dir)
  30. )
  31. (copyfiles (source "bin/Wordpad.info")
  32.            (dest dest_dir)
  33. )
  34.  
  35. (set images_dir (tackon dest_dir "Images"))
  36.                 (makedir images_dir)
  37. (copyfiles (source "bin/Images.info")
  38.            (dest dest_dir)
  39. )
  40. (copyfiles (source "bin/Images/images.bsh")
  41.            (dest images_dir)
  42. )
  43. (copyfiles (source "bin/Images/fimages.bsh")
  44.            (dest images_dir)
  45. )
  46. (copyfiles (source "bin/Wordpad.guide")
  47.            (dest dest_dir)
  48. )
  49. (copyfiles (source "bin/Wordpad.guide.info")
  50.            (dest dest_dir)
  51. )
  52. (complete 80)
  53.  
  54. ;Copy MUI MCC's--------------------------
  55.  
  56. (copylib (prompt "MUI - TextEditor.mcc")
  57.          (source "bin/mui/TextEditor.mcc")
  58.          (dest "MUI:Libs/MUI/")
  59.          (confirm 2)
  60.          (help @copylib-help)
  61. )
  62. (copylib (prompt "MUI - TextEditor.mcp")
  63.          (source "bin/mui/TextEditor.mcp")
  64.          (dest "MUI:Libs/MUI/")
  65.          (confirm 2)
  66.          (help @copylib-help)
  67. )
  68. (copylib (prompt "MUI - Toolbar.mcc")
  69.          (source "bin/mui/Toolbar.mcc")
  70.          (dest "MUI:Libs/MUI/")
  71.          (confirm 2)
  72.          (help @copylib-help)
  73. )
  74. (copylib (prompt "MUI - Toolbar.mcp")
  75.          (source "bin/mui/Toolbar.mcp")
  76.          (dest "MUI:Libs/MUI/")
  77.          (confirm 2)
  78.          (help @copylib-help)
  79. )
  80. (copylib (prompt "MUI - TearOffBay.mcc")
  81.          (source "bin/mui/TearOffBay.mcc")
  82.          (dest "MUI:Libs/MUI/")
  83.          (confirm 2)
  84.          (help @copylib-help)
  85. )
  86. (copylib (prompt "MUI - TearOffPanel.mcc")
  87.          (source "bin/mui/TearOffPanel.mcc")
  88.          (dest "MUI:Libs/MUI/")
  89.          (confirm 2)
  90.          (help @copylib-help)
  91. )
  92. (copylib (prompt "MUI - TearOff.mcp")
  93.          (source "bin/mui/TearOff.mcp")
  94.          (dest "MUI:Libs/MUI/")
  95.          (confirm 2)
  96.          (help @copylib-help)
  97. )
  98. (copylib (prompt "MUI - CompactWindow.mcc")
  99.          (source "bin/mui/CompactWindow.mcc")
  100.          (dest "MUI:Libs/MUI/")
  101.          (confirm 2)
  102.          (help @copylib-help)
  103. )
  104. (copylib (prompt "MUI - CompactWindow.mcp")
  105.          (source "bin/mui/CompactWindow.mcp")
  106.          (dest "MUI:Libs/MUI/")
  107.          (confirm 2)
  108.          (help @copylib-help)
  109. )
  110. (copylib (prompt "MUI - TWFmultiLED.mcc")
  111.          (source "bin/mui/TWFmultiLED.mcc")
  112.          (dest "MUI:Libs/MUI/")
  113.          (confirm 2)
  114.          (help @copylib-help)
  115. )
  116. (copylib (prompt "MUI - TWFmultiLED.mcp")
  117.          (source "bin/mui/TWFmultiLED.mcp")
  118.          (dest "MUI:Libs/MUI/")
  119.          (confirm 2)
  120.          (help @copylib-help)
  121. )
  122.  
  123. (makedir "MUI:Images/SU_TearOff")
  124. (set TO_Images "MUI:Images/SU_TearOff/")
  125.  
  126. (copyfiles (source "bin/mui/images/SU_TearOff/")
  127.            (dest TO_Images)
  128.            (all)
  129. )
  130.